home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / Amigacall v3.51 prof.adf / SCRIPT / SofortWeiter < prev    next >
Text File  |  1989-12-16  |  976b  |  39 lines
  1. # :ts=8 #
  2.  
  3.     list ^l
  4.     ask  Erklaerung (J/N)?
  5.  
  6.     compa !lastline! !with! j
  7.     ifequ    goto babble
  8.  
  9.     compa !lastline! !with! J
  10.     ifequ    goto babble
  11.     goto    ReallyDoIt
  12.  
  13. :babble
  14. print "=================================================================
  15. print
  16. print "  SOFORT WEITER     (by Markus Schmidt)
  17. print
  18. print "    Einige Mailboxen lassen sich jede gelesene Nachricht mit 
  19. print "    RETURN quittieren. Das Script quittiert automatisch diese
  20. print "    Nachrichten.
  21. print "    Dieses Script koennen Sie sofort starten, wenn Sie sich in
  22. print "    eine Mailbox einloggen. Immer wenn die Anforderung zum 
  23. print "    Quittieren kommt (z. B. 'Weiter mit RETURN') sendet das
  24. print "    Script RETURN. 
  25. print "    Sonst koennen Sie normal weiterarbeiten. Um das Script zu
  26. print "    beenden, muessen Sie es abbrechen.
  27. print "
  28. print "=================================================================
  29. exit
  30.  
  31.  
  32. :ReallyDoIt
  33.     timeout 9999
  34.  
  35. :loop
  36.     wait Weiter mit RETURN
  37.     ifnbrk send ^m
  38.     goto loop
  39.